'数组排重
Private Function arrDeDuplicationNoTitle(rng As Variant)
    Dim arr
    arr = rng
    Dim d As Object
    Set d = CreateObject("Scripting.Dictionary")
    Dim i&
    For i = 2 To UBound(arr, 1)
        d(arr(i, 1)) = i
    Next i
    d.Remove Empty
    arrDeDuplicationNoTitle = d.keys
End Function